home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / BNU22SR1.ZIP / src / binutils.2 / bfd / syms.c < prev    next >
C/C++ Source or Header  |  1993-05-30  |  13KB  |  469 lines
  1. /* Generic symbol-table support for the BFD library.
  2.    Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
  3.    Written by Cygnus Support.
  4.  
  5. This file is part of BFD, the Binary File Descriptor library.
  6.  
  7. This program is free software; you can redistribute it and/or modify
  8. it under the terms of the GNU General Public License as published by
  9. the Free Software Foundation; either version 2 of the License, or
  10. (at your option) any later version.
  11.  
  12. This program is distributed in the hope that it will be useful,
  13. but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. GNU General Public License for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with this program; if not, write to the Free Software
  19. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  20.  
  21. /*
  22. SECTION
  23.     Symbols
  24.  
  25.     BFD trys to maintain as much symbol information as it can when
  26.     it moves information from file to file. BFD passes information
  27.     to applications though the <<asymbol>> structure. When the
  28.     application requests the symbol table, BFD reads the table in
  29.     the native form and translates parts of it into the internal
  30.     format. To maintain more than the infomation passed to
  31.     applications some targets keep some information `behind the
  32.     scenes', in a structure only the particular back end knows
  33.     about. For example, the coff back end keeps the original
  34.     symbol table structure as well as the canonical structure when
  35.     a BFD is read in. On output, the coff back end can reconstruct
  36.     the output symbol table so that no information is lost, even
  37.     information unique to coff which BFD doesn't know or
  38.     understand. If a coff symbol table was read, but was written
  39.     through an a.out back end, all the coff specific information
  40.     would be lost. The symbol table of a BFD
  41.     is not necessarily read in until a canonicalize request is
  42.     made. Then the BFD back end fills in a table provided by the
  43.     application with pointers to the canonical information.  To
  44.     output symbols, the application provides BFD with a table of
  45.     pointers to pointers to <<asymbol>>s. This allows applications
  46.     like the linker to output a symbol as read, since the `behind
  47.     the scenes' information will be still available. 
  48. @menu
  49. @* Reading Symbols::
  50. @* Writing Symbols::
  51. @* typedef asymbol::
  52. @* symbol handling functions::
  53. @end menu
  54.  
  55. INODE
  56. Reading Symbols, Writing Symbols, Symbols, Symbols
  57. SUBSECTION
  58.     Reading Symbols
  59.  
  60.     There are two stages to reading a symbol table from a BFD;
  61.     allocating storage, and the actual reading process. This is an
  62.     excerpt from an appliction which reads the symbol table:
  63.  
  64. |      unsigned int storage_needed;
  65. |      asymbol **symbol_table;
  66. |      unsigned int number_of_symbols;
  67. |      unsigned int i;
  68. |    
  69. |      storage_needed = get_symtab_upper_bound (abfd);
  70. |    
  71. |      if (storage_needed == 0) {
  72. |         return ;
  73. |      }
  74. |      symbol_table = (asymbol **) bfd_xmalloc (storage_needed);
  75. |        ...
  76. |      number_of_symbols = 
  77. |         bfd_canonicalize_symtab (abfd, symbol_table); 
  78. |    
  79. |      for (i = 0; i < number_of_symbols; i++) {
  80. |         process_symbol (symbol_table[i]);
  81. |      }
  82.  
  83.     All storage for the symbols themselves is in an obstack
  84.     connected to the BFD, and is freed when the BFD is closed.
  85.  
  86.  
  87. INODE
  88. Writing Symbols, typedef asymbol, Reading Symbols, Symbols
  89. SUBSECTION
  90.     Writing Symbols
  91.  
  92.     Writing of a symbol table is automatic when a BFD open for
  93.     writing is closed. The application attaches a vector of
  94.     pointers to pointers to symbols to the BFD being written, and
  95.     fills in the symbol count. The close and cleanup code reads
  96.     through the table provided and performs all the necessary
  97.     operations. The outputing code must always be provided with an
  98.     'owned' symbol; one which has come from another BFD, or one
  99.     which has been created using <<bfd_make_empty_symbol>>.   An
  100.     example showing the creation of a symbol table with only one element:
  101.  
  102. |    #include "bfd.h"
  103. |    main() 
  104. |    {
  105. |      bfd *abfd;
  106. |      asymbol *ptrs[2];
  107. |      asymbol *new;
  108. |    
  109. |      abfd = bfd_openw("foo","a.out-sunos-big");
  110. |      bfd_set_format(abfd, bfd_object);
  111. |      new = bfd_make_empty_symbol(abfd);
  112. |      new->name = "dummy_symbol";
  113. |      new->section = bfd_make_section_old_way(abfd, ".text");
  114. |      new->flags = BSF_GLOBAL;
  115. |      new->value = 0x12345;
  116. |    
  117. |      ptrs[0] = new;
  118. |      ptrs[1] = (asymbol *)0;
  119. |      
  120. |      bfd_set_symtab(abfd, ptrs, 1);
  121. |      bfd_close(abfd);
  122. |    }
  123. |    
  124. |    ./makesym 
  125. |    nm foo
  126. |    00012345 A dummy_symbol
  127.  
  128.     Many formats cannot represent arbitary symbol information; for
  129.      instance the <<a.out>> object format does not allow an
  130.     arbitary number of sections. A symbol pointing to a section
  131.     which is not one  of <<.text>>, <<.data>> or <<.bss>> cannot
  132.     be described. 
  133.  
  134. */
  135.  
  136.  
  137.  
  138. /*
  139. DOCDD
  140. INODE
  141. typedef asymbol, symbol handling functions, Writing Symbols, Symbols
  142.  
  143. */
  144. /*
  145. SUBSECTION
  146.     typedef asymbol
  147.  
  148.     An <<asymbol>> has the form:
  149.  
  150. */
  151.  
  152. /*
  153. CODE_FRAGMENT
  154.  
  155. .typedef struct symbol_cache_entry 
  156. .{
  157. .    {* A pointer to the BFD which owns the symbol. This information
  158. .       is necessary so that a back end can work out what additional
  159. .          information (invisible to the application writer) is carried
  160. .       with the symbol.
  161. .
  162. .       This field is *almost* redundant, since you can use section->owner
  163. .       instead, except that some symbols point to the global sections
  164. .       bfd_{abs,com,und}_section.  This could be fixed by making
  165. .       these globals be per-bfd (or per-target-flavor).  FIXME. *}
  166. .
  167. .  struct _bfd *the_bfd; {* Use bfd_asymbol_bfd(sym) to access this field. *}
  168. .
  169. .    {* The text of the symbol. The name is left alone, and not copied - the
  170. .       application may not alter it. *}
  171. .  CONST char *name;
  172. .
  173. .    {* The value of the symbol.*}
  174. .  symvalue value;
  175. .
  176. .    {* Attributes of a symbol: *}
  177. .
  178. .#define BSF_NO_FLAGS    0x00
  179. .
  180. .    {* The symbol has local scope; <<static>> in <<C>>. The value
  181. .        is the offset into the section of the data. *}
  182. .#define BSF_LOCAL    0x01
  183. .
  184. .    {* The symbol has global scope; initialized data in <<C>>. The
  185. .       value is the offset into the section of the data. *}
  186. .#define BSF_GLOBAL    0x02
  187. .
  188. .    {* Obsolete; should be deleted? *}
  189. .#define BSF_IMPORT    0x04
  190. .
  191. .    {* The symbol has global scope, and is exported. The value is
  192. .       the offset into the section of the data. *}
  193. .#define BSF_EXPORT    0x08
  194. .
  195. .    {* The symbol is undefined. <<extern>> in <<C>>. The value has
  196. .       no meaning.  Obsolete; should be deleted? *}
  197. .#define BSF_UNDEFINED_OBS 0x10    
  198. .
  199. .    {* The symbol is common, initialized to zero; default in
  200. .       <<C>>. The value is the size of the object in bytes. *}
  201. .#define BSF_FORT_COMM_OBS    0x20    
  202. .
  203. .    {* A normal C symbol would be one of:
  204. .       <<BSF_LOCAL>>, <<BSF_FORT_COMM>>,  <<BSF_UNDEFINED>> or
  205. .       <<BSF_EXPORT|BSD_GLOBAL>> *}
  206. .
  207. .    {* The symbol is a debugging record. The value has an arbitary
  208. .       meaning. *}
  209. .#define BSF_DEBUGGING    0x40
  210. .
  211. .    {* The symbol denotes a function entry point.  Used in ELF,
  212. .       perhaps others someday.  *}
  213. .#define BSF_FUNCTION    0x080
  214. .
  215. .    {* Used by the linker. *}
  216. .#define BSF_KEEP        0x10000
  217. .#define BSF_KEEP_G      0x80000
  218. .
  219. .    {* Unused; should be deleted? *}
  220. .#define BSF_WEAK        0x100000
  221. .#define BSF_CTOR        0x200000 
  222. .
  223. .       {* This symbol was created to point to a section, e.g. ELF's
  224. .       STT_SECTION symbols.  *}
  225. .#define BSF_SECTION_SYM 0x400000 
  226. .
  227. .    {* The symbol used to be a common symbol, but now it is
  228. .       allocated. *}
  229. .#define BSF_OLD_COMMON  0x800000  
  230. .
  231. .    {* The default value for common data. *}
  232. .#define BFD_FORT_COMM_DEFAULT_VALUE 0
  233. .
  234. .    {* In some files the type of a symbol sometimes alters its
  235. .       location in an output file - ie in coff a <<ISFCN>> symbol
  236. .       which is also <<C_EXT>> symbol appears where it was
  237. .       declared and not at the end of a section.  This bit is set
  238. .         by the target BFD part to convey this information. *}
  239. .
  240. .#define BSF_NOT_AT_END    0x40000
  241. .
  242. .    {* Signal that the symbol is the label of constructor section. *}
  243. .#define BSF_CONSTRUCTOR   0x1000000
  244. .
  245. .    {* Signal that the symbol is a warning symbol. If the symbol
  246. .       is a warning symbol, then the value field (I know this is
  247. .       tacky) will point to the asymbol which when referenced will
  248. .       cause the warning. *}
  249. .#define BSF_WARNING       0x2000000
  250. .
  251. .    {* Signal that the symbol is indirect. The value of the symbol
  252. .       is a pointer to an undefined asymbol which contains the
  253. .       name to use instead. *}
  254. .#define BSF_INDIRECT      0x4000000
  255. .
  256. .    {* BSF_FILE marks symbols that contain a file name.  This is used
  257. .       for ELF STT_FILE symbols.  *}
  258. .#define BSF_FILE          0x08000000
  259. .
  260. .  flagword flags;
  261. .
  262. .    {* A pointer to the section to which this symbol is 
  263. .       relative.  This will always be non NULL, there are special
  264. .          sections for undefined and absolute symbols *}
  265. .  struct sec *section;
  266. .
  267. .    {* Back end special data. This is being phased out in favour
  268. .       of making this a union. *}
  269. .  PTR udata;
  270. .
  271. .} asymbol;
  272. */
  273.  
  274. #include "bfd.h"
  275. #include "sysdep.h"
  276.  
  277. #include "libbfd.h"
  278. #include "aout/stab_gnu.h"
  279.  
  280. /*
  281. DOCDD
  282. INODE
  283. symbol handling functions,  , typedef asymbol, Symbols
  284. SUBSECTION
  285.     Symbol Handling Functions
  286. */
  287.  
  288. /*
  289. FUNCTION
  290.     get_symtab_upper_bound
  291.  
  292. DESCRIPTION
  293.     Returns the number of bytes required in a vector of pointers
  294.     to <<asymbols>> for all the symbols in the supplied BFD,
  295.     including a terminal NULL pointer. If there are no symbols in
  296.     the BFD, then 0 is returned.
  297.  
  298. .#define get_symtab_upper_bound(abfd) \
  299. .     BFD_SEND (abfd, _get_symtab_upper_bound, (abfd))
  300.  
  301. */
  302.  
  303. /*
  304. FUNCTION
  305.     bfd_canonicalize_symtab
  306.  
  307. DESCRIPTION
  308.     Supplied a BFD and a pointer to an uninitialized vector of
  309.     pointers. This reads in the symbols from the BFD, and fills in
  310.     the table with pointers to the symbols, and a trailing NULL.
  311.     The routine returns the actual number of symbol pointers not
  312.     including the NULL.
  313.  
  314.  
  315. .#define bfd_canonicalize_symtab(abfd, location) \
  316. .     BFD_SEND (abfd, _bfd_canonicalize_symtab,\
  317. .                  (abfd, location))
  318.  
  319. */
  320.  
  321.  
  322. /*
  323. FUNCTION
  324.     bfd_set_symtab
  325.  
  326. DESCRIPTION
  327.     Provided a table of pointers to symbols and a count, writes to
  328.     the output BFD the symbols when closed.
  329.  
  330. SYNOPSIS
  331.     boolean bfd_set_symtab (bfd *, asymbol **, unsigned int );
  332. */
  333.  
  334. boolean
  335. bfd_set_symtab (abfd, location, symcount)
  336.      bfd *abfd;
  337.      asymbol **location;
  338.      unsigned int symcount;
  339. {
  340.   if ((abfd->format != bfd_object) || (bfd_read_p (abfd))) {
  341.     bfd_error = invalid_operation;
  342.     return false;
  343.   }
  344.  
  345.   bfd_get_outsymbols (abfd) = location;
  346.   bfd_get_symcount (abfd) = symcount;
  347.   return true;
  348. }
  349.  
  350. /*
  351. FUNCTION
  352.     bfd_print_symbol_vandf
  353.  
  354. DESCRIPTION
  355.     Prints the value and flags of the symbol supplied to the stream file.
  356.  
  357. SYNOPSIS
  358.     void bfd_print_symbol_vandf(PTR file, asymbol *symbol);
  359. */
  360. void
  361. DEFUN(bfd_print_symbol_vandf,(file, symbol),
  362. PTR file AND
  363. asymbol *symbol)
  364. {
  365.   flagword type = symbol->flags;
  366.   if (symbol->section != (asection *)NULL)
  367.       {
  368.     fprintf_vma(file, symbol->value+symbol->section->vma);
  369.       }
  370.   else 
  371.       {
  372.     fprintf_vma(file, symbol->value);
  373.       }
  374.   fprintf(file," %c%c%c%c%c%c%c%c",
  375.       (type & BSF_LOCAL)  ? 'l':' ',
  376.       (type & BSF_GLOBAL) ? 'g' : ' ',
  377.       (type & BSF_IMPORT) ? 'i' : ' ',
  378.       (type & BSF_EXPORT) ? 'e' : ' ',
  379.       (type & BSF_CONSTRUCTOR) ? 'C' : ' ',
  380.       (type & BSF_WARNING) ? 'W' : ' ',
  381.       (type & BSF_INDIRECT) ? 'I' : ' ',
  382.       (type & BSF_DEBUGGING) ? 'd' :' ');
  383.  
  384. }
  385.  
  386.  
  387. /*
  388. FUNCTION
  389.     bfd_make_empty_symbol
  390.  
  391. DESCRIPTION
  392.     This function creates a new <<asymbol>> structure for the BFD,
  393.     and returns a pointer to it.
  394.  
  395.     This routine is necessary, since each back end has private
  396.     information surrounding the <<asymbol>>. Building your own
  397.     <<asymbol>> and pointing to it will not create the private
  398.     information, and will cause problems later on.
  399.  
  400. .#define bfd_make_empty_symbol(abfd) \
  401. .     BFD_SEND (abfd, _bfd_make_empty_symbol, (abfd))
  402. */
  403.  
  404. /*
  405. FUNCTION
  406.     bfd_make_debug_symbol
  407.  
  408. DESCRIPTION
  409.     This function creates a new <<asymbol>> structure for the BFD,
  410.     to be used as a debugging symbol.  Further details of its use have
  411.     yet to be worked out.
  412.  
  413. .#define bfd_make_debug_symbol(abfd,ptr,size) \
  414. .        BFD_SEND (abfd, _bfd_make_debug_symbol, (abfd, ptr, size))
  415. */
  416.  
  417. /*
  418. FUNCTION
  419.     bfd_decode_symclass
  420.  
  421. DESCRIPTION
  422.     Return a lower-case character corresponding to the symbol
  423.     class of symbol.
  424.  
  425. SYNOPSIS
  426.     int bfd_decode_symclass(asymbol *symbol);
  427. */
  428. int
  429. DEFUN(bfd_decode_symclass,(symbol),
  430. asymbol *symbol)
  431. {
  432.   flagword flags = symbol->flags;
  433.   
  434.   if (bfd_is_com_section (symbol->section)) return 'C';
  435.   if (symbol->section == &bfd_und_section) return 'U';
  436.   if (symbol->section == &bfd_ind_section) return 'I';
  437.    if ( flags & (BSF_GLOBAL|BSF_LOCAL) ) {
  438.      if ( symbol->section == &bfd_abs_section)
  439.       return (flags & BSF_GLOBAL) ? 'A' : 'a';
  440.      else if ( !strcmp(symbol->section->name, ".text") )
  441.        return (flags & BSF_GLOBAL) ? 'T' : 't';
  442.      else if ( !strcmp(symbol->section->name, ".data") )
  443.        return (flags & BSF_GLOBAL) ? 'D' : 'd';
  444.      else if ( !strcmp(symbol->section->name, ".bss") )
  445.        return (flags & BSF_GLOBAL) ? 'B' : 'b';
  446.      else
  447.        return (flags & BSF_GLOBAL) ? 'O' : 'o';
  448.     }
  449.  
  450.   /* We don't have to handle these cases just yet, but we will soon:
  451.      N_SETV: 'v'; 
  452.      N_SETA: 'l'; 
  453.      N_SETT: 'x';
  454.      N_SETD: 'z';
  455.      N_SETB: 's';
  456.      N_INDR: 'i';
  457.      */
  458.  
  459.   return '?';
  460. }
  461.  
  462.  
  463. void
  464. bfd_symbol_is_absolute()
  465. {
  466.   abort();
  467. }
  468.  
  469.